home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / cc68k.arc / SIEVE.ARC / SIEVE.S < prev   
Text File  |  1989-11-05  |  1KB  |  70 lines
  1.     SECTION    9
  2. MAIN:
  3.     LINK    A6,#-8212
  4.     MOVEM.L    D3/D4/D5/D6/D7/A2,-(A7)
  5.     LEA    -8191(A6),A0
  6.     MOVE.L    A0,A2
  7.     MOVE.L    #8190,D7
  8.     MOVE.L    #L_0,-(A7)
  9.     JSR    PRINTF
  10.     ADD.W    #4,A7
  11.     MOVE.L    #1,-8212(A6)
  12. L_2:
  13.     MOVE.L    -8212(A6),D0
  14.     CMP.L    #10,D0
  15.     BGT    L_3
  16.     MOVE    #0,D5
  17.     MOVE    #0,D3
  18. L_4:
  19.     CMP.L    D7,D3
  20.     BGT    L_5
  21.     MOVE.B    #1,0(A2,D3.L)
  22.     ADD.L    #1,D3
  23.     BRA    L_4
  24. L_5:
  25.     MOVE    #0,D3
  26. L_6:
  27.     CMP.L    D7,D3
  28.     BGT    L_7
  29.     TST.B    0(A2,D3.L)
  30.     BEQ    L_8
  31.     MOVE.L    D3,D0
  32.     ADD.L    D3,D0
  33.     ADD.L    #3,D0
  34.     MOVE.L    D0,D6
  35.     MOVE.L    D3,D0
  36.     ADD.L    D6,D0
  37.     MOVE.L    D0,D4
  38. L_10:
  39.     CMP.L    D7,D4
  40.     BGT    L_11
  41.     CLR.B    0(A2,D4.L)
  42.     ADD.L    D6,D4
  43.     BRA    L_10
  44. L_11:
  45.     MOVE.L    D5,D0
  46.     ADD.L    #1,D0
  47.     MOVE.L    D0,D5
  48. L_8:
  49.     ADD.L    #1,D3
  50.     BRA    L_6
  51. L_7:
  52.     ADD.L    #1,-8212(A6)
  53.     BRA    L_2
  54. L_3:
  55.     MOVE.L    D5,-(A7)
  56.     MOVE.L    #L_1,-(A7)
  57.     JSR    PRINTF
  58.     ADD.W    #8,A7
  59. L_12:
  60.     MOVEM.L    (A7)+,D3/D4/D5/D6/D7/A2
  61.     UNLK    A6
  62.     RTS
  63. L_1:
  64.     DC.B    10,37,100,32,112,114,105,109,101,115,10,0
  65. L_0:
  66.     DC.B    49,48,32,105,116,101,114,97,116,105,111,110
  67.     DC.B    115,10,0
  68.     XDEF    MAIN
  69.     XREF    PRINTF
  70.     END